home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / tpwin31.zip / DLGS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-06  |  4KB  |  217 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal for Windows Run-time Library       }
  5. {       Windows 3.1 API Interface Unit                  }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Dlgs;
  12.  
  13. interface
  14.  
  15. { Constants }
  16.  
  17. const
  18.   ctlFirst = $0400;
  19.   ctlLast = $04ff;
  20.  
  21. { Push buttons }
  22.  
  23.   psh1 = $0400;
  24.   psh2 = $0401;
  25.   psh3 = $0402;
  26.   psh4 = $0403;
  27.   psh5 = $0404;
  28.   psh6 = $0405;
  29.   psh7 = $0406;
  30.   psh8 = $0407;
  31.   psh9 = $0408;
  32.   psh10 = $0409;
  33.   psh11 = $040a;
  34.   psh12 = $040b;
  35.   psh13 = $040c;
  36.   psh14 = $040d;
  37.   psh15 = $040e;
  38.   pshHelp = psh15;
  39.   psh16 = $040f;
  40.  
  41. { Checkboxes }
  42.  
  43.   chx1 = $0410;
  44.   chx2 = $0411;
  45.   chx3 = $0412;
  46.   chx4 = $0413;
  47.   chx5 = $0414;
  48.   chx6 = $0415;
  49.   chx7 = $0416;
  50.   chx8 = $0417;
  51.   chx9 = $0418;
  52.   chx10 = $0419;
  53.   chx11 = $041a;
  54.   chx12 = $041b;
  55.   chx13 = $041c;
  56.   chx14 = $041d;
  57.   chx15 = $041e;
  58.   chx16 = $041f;
  59.  
  60. { Radio buttons }
  61.  
  62.   rad1 = $0420;
  63.   rad2 = $0421;
  64.   rad3 = $0422;
  65.   rad4 = $0423;
  66.   rad5 = $0424;
  67.   rad6 = $0425;
  68.   rad7 = $0426;
  69.   rad8 = $0427;
  70.   rad9 = $0428;
  71.   rad10 = $0429;
  72.   rad11 = $042a;
  73.   rad12 = $042b;
  74.   rad13 = $042c;
  75.   rad14 = $042d;
  76.   rad15 = $042e;
  77.   rad16 = $042f;
  78.  
  79. { Groups, frames, rectangles, and icons }
  80.  
  81.   grp1 = $0430;
  82.   grp2 = $0431;
  83.   grp3 = $0432;
  84.   grp4 = $0433;
  85.   frm1 = $0434;
  86.   frm2 = $0435;
  87.   frm3 = $0436;
  88.   frm4 = $0437;
  89.   rct1 = $0438;
  90.   rct2 = $0439;
  91.   rct3 = $043a;
  92.   rct4 = $043b;
  93.   ico1 = $043c;
  94.   ico2 = $043d;
  95.   ico3 = $043e;
  96.   ico4 = $043f;
  97.  
  98. { Static text }
  99.  
  100.   stc1 = $0440;
  101.   stc2 = $0441;
  102.   stc3 = $0442;
  103.   stc4 = $0443;
  104.   stc5 = $0444;
  105.   stc6 = $0445;
  106.   stc7 = $0446;
  107.   stc8 = $0447;
  108.   stc9 = $0448;
  109.   stc10 = $0449;
  110.   stc11 = $044a;
  111.   stc12 = $044b;
  112.   stc13 = $044c;
  113.   stc14 = $044d;
  114.   stc15 = $044e;
  115.   stc16 = $044f;
  116.   stc17 = $0450;
  117.   stc18 = $0451;
  118.   stc19 = $0452;
  119.   stc20 = $0453;
  120.   stc21 = $0454;
  121.   stc22 = $0455;
  122.   stc23 = $0456;
  123.   stc24 = $0457;
  124.   stc25 = $0458;
  125.   stc26 = $0459;
  126.   stc27 = $045a;
  127.   stc28 = $045b;
  128.   stc29 = $045c;
  129.   stc30 = $045d;
  130.   stc31 = $045e;
  131.   stc32 = $045f;
  132.  
  133. { Listboxes }
  134.  
  135.   lst1 = $0460;
  136.   lst2 = $0461;
  137.   lst3 = $0462;
  138.   lst4 = $0463;
  139.   lst5 = $0464;
  140.   lst6 = $0465;
  141.   lst7 = $0466;
  142.   lst8 = $0467;
  143.   lst9 = $0468;
  144.   lst10 = $0469;
  145.   lst11 = $046a;
  146.   lst12 = $046b;
  147.   lst13 = $046c;
  148.   lst14 = $046d;
  149.   lst15 = $046e;
  150.   lst16 = $046f;
  151.  
  152. { Combo boxes }
  153.  
  154.   cmb1 = $0470;
  155.   cmb2 = $0471;
  156.   cmb3 = $0472;
  157.   cmb4 = $0473;
  158.   cmb5 = $0474;
  159.   cmb6 = $0475;
  160.   cmb7 = $0476;
  161.   cmb8 = $0477;
  162.   cmb9 = $0478;
  163.   cmb10 = $0479;
  164.   cmb11 = $047a;
  165.   cmb12 = $047b;
  166.   cmb13 = $047c;
  167.   cmb14 = $047d;
  168.   cmb15 = $047e;
  169.   cmb16 = $047f;
  170.  
  171. { Edit controls }
  172.  
  173.   edt1 = $0480;
  174.   edt2 = $0481;
  175.   edt3 = $0482;
  176.   edt4 = $0483;
  177.   edt5 = $0484;
  178.   edt6 = $0485;
  179.   edt7 = $0486;
  180.   edt8 = $0487;
  181.   edt9 = $0488;
  182.   edt10 = $0489;
  183.   edt11 = $048a;
  184.   edt12 = $048b;
  185.   edt13 = $048c;
  186.   edt14 = $048d;
  187.   edt15 = $048e;
  188.   edt16 = $048f;
  189.  
  190. { Scroll bars }
  191.  
  192.   scr1 = $0490;
  193.   scr2 = $0491;
  194.   scr3 = $0492;
  195.   scr4 = $0493;
  196.   scr5 = $0494;
  197.   scr6 = $0495;
  198.   scr7 = $0496;
  199.   scr8 = $0497;
  200.  
  201. { Dialog resource ordinals }
  202.  
  203.   FileOpenOrd = 1536;
  204.   MultiFileOpenOrd = 1537;
  205.   PrintDlgOrd = 1538;
  206.   PrnSetupDlgOrd = 1539;
  207.   FindDlgOrd = 1540;
  208.   ReplaceDlgOrd = 1541;
  209.   FontDlgOrd = 1542;
  210.   FormatDlgOrd31 = 1543;
  211.   FormatDlgOrd30 = 1544;
  212.  
  213. implementation
  214.  
  215. end.
  216.  
  217.